home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
lisp
/
kcl
/
kcl.lha
/
cmpnew
/
cmpeval.c
< prev
next >
Wrap
C/C++ Source or Header
|
1987-06-04
|
33KB
|
1,399 lines
/* (C) Copyright Taiichi Yuasa and Masami Hagiya, 1984. All rights reserved. */
#include <cmpinclude.h>
#include "cmpeval.h"
init_cmpeval(start,size,data)char *start;int size;object data;
{ register object *base=vs_top;register object *sup=base+VM2;vs_top=sup;vs_check;
Cstart=start;Csize=size;Cdata=data;set_VV(VV,VM1,data);
(void)(putprop(VV[0],VV[1],VV[2]));
(void)(putprop(VV[0],VV[3],VV[4]));
(void)(putprop(VV[5],VV[6],VV[7]));
(void)(putprop(VV[8],VV[9],VV[4]));
(void)(putprop(VV[8],VV[10],VV[11]));
(void)(putprop(VV[12],VV[13],VV[7]));
(void)(putprop(VV[14],VV[15],VV[4]));
MF(VV[90],L8,start,size,data);
data->v.v_self[16]=VV[16]=string_to_object(VV[16]);
vs_top=sup;
MF(VV[91],L9,start,size,data);
VV[25]->s.s_stype=(short)stp_special;
if(VV[25]->s.s_dbind == OBJNULL){
base[1]=symbol_function(VV[92]);
base[2]= VV[18];
base[4]= Cnil;
base[3]= simple_symlispcall_no_event(VV[93],base+4,1);
base[0]= simple_lispcall_no_event(base+1,2);
VV[25]->s.s_dbind = list(3,VV[17],base[0],Cnil);}
MF(VV[94],L10,start,size,data);
VV[26]->s.s_stype=(short)stp_special;
if(VV[26]->s.s_dbind == OBJNULL){
base[1]=symbol_function(VV[92]);
base[2]= VV[18];
base[4]= Ct;
base[3]= simple_symlispcall_no_event(VV[93],base+4,1);
base[0]= simple_lispcall_no_event(base+1,2);
VV[26]->s.s_dbind = list(3,VV[17],base[0],Ct);}
MF(VV[95],L11,start,size,data);
MF(VV[96],L12,start,size,data);
MF(VV[97],L13,start,size,data);
MF(VV[98],L14,start,size,data);
MF(VV[99],L15,start,size,data);
MF(VV[100],L16,start,size,data);
MF(VV[101],L17,start,size,data);
MF(VV[1],L18,start,size,data);
MF(VV[102],L19,start,size,data);
MF(VV[3],L20,start,size,data);
MF(VV[103],L21,start,size,data);
MF(VV[6],L22,start,size,data);
MF(VV[104],L23,start,size,data);
MF(VV[9],L24,start,size,data);
MF(VV[10],L25,start,size,data);
MF(VV[13],L26,start,size,data);
MF(VV[15],L27,start,size,data);
MF(VV[105],L28,start,size,data);
MM(VV[86],L29,start,size,data);
MF(VV[106],L30,start,size,data);
VV[79]->s.s_stype=(short)stp_special;
if(VV[79]->s.s_dbind == OBJNULL){
VV[79]->s.s_dbind = VV[78];}
(void)putprop(VV[107],VV[89],siSpretty_print_format);
vs_top=sup;
MM(VV[107],L31,start,size,data);
vs_top=vs_base=base;
}
/* function definition for C1EXPR* */
static L8()
{ register object *base=vs_base;
register object *sup=base+VM3;
vs_reserve(VM3);
check_arg(2);
vs_top=sup;
TTL:;
base[2]= base[0];
vs_top=(vs_base=base+2)+1;
L9();
vs_top=sup;
base[0]= vs_base[0];
base[2]= base[1];
base[3]= cadr(base[0]);
(void)simple_symlispcall_no_event(VV[108],base+2,2);
vs_top=(vs_base=base+0)+1;
return;
}
/* function definition for C1EXPR */
static L9()
{ register object *base=vs_base;
register object *sup=base+VM4;
vs_reserve(VM4);
check_arg(1);
vs_top=sup;
TTL:;
frs_push(FRS_CATCH,VV[16]);
if(nlj_active)
{nlj_active=FALSE;frs_pop();
vs_top=sup;
base[0]= vs_base[0];
goto T26;}
else{
if(!(type_of(base[0])==t_symbol)){
goto T29;}
if(!(base[0]==Cnil)){
goto T32;}
vs_base=vs_top;
L10();
vs_top=sup;
frs_pop();
base[0]= vs_base[0];
goto T26;
T32:;
if(!(base[0]==Ct)){
goto T35;}
vs_base=vs_top;
L11();
vs_top=sup;
frs_pop();
base[0]= vs_base[0];
goto T26;
T35:;
if(!((type_of(base[0])==t_symbol&&(base[0])->s.s_hpack==keyword_package))){
goto T38;}
base[2]=symbol_function(VV[92]);
base[3]= VV[18];
base[5]= base[0];
base[4]= simple_symlispcall_no_event(VV[93],base+5,1);
base[1]= simple_lispcall_no_event(base+2,2);
base[3]= base[0];
base[2]= simple_symlispcall_no_event(VV[109],base+3,1);
base[3]= list(2,VV[19],base[2]);
base[4]= list(3,VV[17],base[1],base[3]);
frs_pop();
base[0]= base[4];
goto T26;
T38:;
base[1]= base[0];
vs_top=(vs_base=base+1)+1;
Lconstantp();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T47;}
base[2]= base[0];
vs_top=(vs_base=base+2)+1;
Lsymbol_value();
vs_top=sup;
base[1]= vs_base[0];
base[3]= base[1];
base[4]= Cnil;
vs_top=(vs_base=base+3)+2;
L28();
vs_top=sup;
base[2]= vs_base[0];
if(base[2]==Cnil)goto T52;
frs_pop();
base[0]= base[2];
goto T26;
T52:;
base[4]=symbol_function(VV[92]);
base[5]= VV[18];
base[7]= base[1];
base[6]= simple_symlispcall_no_event(VV[93],base+7,1);
base[3]= simple_lispcall_no_event(base+4,2);
base[5]= base[0];
base[4]= simple_symlispcall_no_event(VV[110],base+5,1);
base[5]= list(2,VV[19],base[4]);
base[6]= list(3,VV[17],base[3],base[5]);
frs_pop();
base[0]= base[6];
goto T26;
T47:;
base[1]= base[0];
base[2]= simple_symlispcall_no_event(VV[111],base+1,1);
frs_pop();
base[0]= base[2];
goto T26;
T29:;
if(!(type_of(base[0])==t_cons)){
goto T64;}
base[1]= car(base[0]);
if(!(type_of(base[1])==t_symbol)){
goto T68;}
base[2]= base[1];
base[3]= cdr(base[0]);
vs_top=(vs_base=base+2)+2;
L12();
vs_top=sup;
frs_pop();
base[0]= vs_base[0];
goto T26;
T68:;
if(!(type_of(base[1])==t_cons)){
goto T73;}
if(!(car(base[1])==VV[20])){
goto T73;}
base[2]= cdr(base[1]);
base[3]= cdr(base[0]);
vs_top=(vs_base=base+2)+2;
L13();
vs_top=sup;
frs_pop();
base[0]= vs_base[0];
goto T26;
T73:;
if(!(type_of(base[1])==t_cons)){
goto T80;}
if(!(car(base[1])==VV[21])){
goto T80;}
base[2]= VV[22];
base[3]= simple_symlispcall_no_event(VV[112],base+2,1);
frs_pop();
base[0]= base[3];
goto T26;
T80:;
base[2]= VV[23];
base[3]= base[1];
base[4]= simple_symlispcall_no_event(VV[112],base+2,2);
frs_pop();
base[0]= base[4];
goto T26;
T64:;
base[1]= base[0];
base[2]= Ct;
vs_top=(vs_base=base+1)+2;
L28();
vs_top=sup;
frs_pop();
base[0]= vs_base[0];}
T26:;
if(!(base[0]==VV[24])){
goto T90;}
vs_base=vs_top;
L10();
return;
T90:;
vs_top=(vs_base=base+0)+1;
return;
}
/* function definition for C1NIL */
static L10()
{ register object *base=vs_base;
register object *sup=base+VM5;
vs_reserve(VM5);
check_arg(0);
vs_top=sup;
TTL:;
base[0]= symbol_value(VV[25]);
vs_top=(vs_base=base+0)+1;
return;
}
/* function definition for C1T */
static L11()
{ register object *base=vs_base;
register object *sup=base+VM6;
vs_reserve(VM6);
check_arg(0);
vs_top=sup;
TTL:;
base[0]= symbol_value(VV[26]);
vs_top=(vs_base=base+0)+1;
return;
}
/* function definition for C1SYMBOL-FUN */
static L12()
{ register object *base=vs_base;
register object *sup=base+VM7;
vs_reserve(VM7);
check_arg(2);
vs_top=sup;
TTL:;
base[2]= Cnil;
base[2]= get(base[0],VV[2],Cnil);
if((base[2])==Cnil){
goto T93;}
base[3]= base[1];
vs_top=(vs_base=base+3)+1;
super_funcall_no_event(base[2]);
return;
T93:;
base[3]= base[0];
base[2]= simple_symlispcall_no_event(VV[113],base+3,1);
if((base[2])==Cnil){
goto T98;}
if(!(car(base[2])==VV[27])){
goto T103;}
base[4]= VV[28];
base[5]= Ct;
base[3]= simple_symlispcall_no_event(VV[92],base+4,2);
base[5]= base[1];
base[6]= base[3];
vs_top=(vs_base=base+5)+2;
L21();
vs_top=sup;
base[4]= vs_base[0];
base[6]= caddr(base[2]);
base[5]= simple_symlispcall_no_event(VV[114],base+6,1);
if((base[5])==Cnil){
goto T111;}
structure_set(base[3],VV[29],2,base[5]);
T111:;
base[6]= caddr(base[2]);
base[5]= simple_symlispcall_no_event(VV[115],base+6,1);
if((base[5])==Cnil){
goto T116;}
base[6]= Cnil;
{object V1;
object V2;
V1= base[4];
V2= car((V1));
T125:;
if(!(endp((V1)))){
goto T126;}
goto T121;
T126:;
if(!(endp(base[5]))){
goto T132;}
base[6]= make_cons((V2),base[6]);
goto T130;
T132:;
base[8]= car(base[5]);
base[9]= (V2);
base[10]= car(base[1]);
base[7]= simple_symlispcall_no_event(VV[116],base+8,3);
base[6]= make_cons(base[7],base[6]);
base[7]= car(base[5]);
base[5]= cdr(base[5]);
base[7]= car(base[1]);
base[1]= cdr(base[1]);
T130:;
V1= cdr((V1));
V2= car((V1));
goto T125;}
T121:;
base[4]= reverse(base[6]);
T116:;
base[5]= list(4,VV[27],base[3],cddr(base[2]),base[4]);
vs_top=(vs_base=base+5)+1;
return;
T103:;
base[4]= base[2];
base[5]= base[0];
base[6]= base[1];
base[3]= simple_symlispcall_no_event(VV[117],base+4,3);
vs_top=(vs_base=base+3)+1;
L9();
return;
T98:;
base[2]= get(base[0],VV[7],Cnil);
if((base[2])==Cnil){
goto T159;}
base[3]= base[0];
if((simple_symlispcall_no_event(VV[118],base+3,1))==Cnil){
goto T159;}
base[3]= base[1];
vs_top=(vs_base=base+3)+1;
super_funcall_no_event(base[2]);
return;
T159:;
base[2]= get(base[0],VV[30],Cnil);
if((base[2])==Cnil){
goto T167;}
base[3]= base[0];
if((simple_symlispcall_no_event(VV[118],base+3,1))==Cnil){
goto T167;}
base[3]= car(base[2]);
base[4]= base[1];
vs_top=(vs_base=base+4)+1;
super_funcall_no_event(base[3]);
vs_top=sup;
if((vs_base[0])==Cnil){
goto T167;}
base[3]= cdr(base[2]);
base[4]= base[1];
vs_top=(vs_base=base+4)+1;
super_funcall_no_event(base[3]);
return;
T167:;
base[3]= base[0];
vs_top=(vs_base=base+3)+1;
Lmacro_function();
vs_top=sup;
base[2]= vs_base[0];
if((base[2])==Cnil){
goto T180;}
base[4]= base[2];
base[5]= base[0];
base[6]= base[1];
base[3]= simple_symlispcall_no_event(VV[117],base+4,3);
vs_top=(vs_base=base+3)+1;
L9();
return;
T180:;
base[2]= get(base[0],VV[31],Cnil);
if((base[2])==Cnil){
goto T189;}
base[5]= list(2,VV[33],base[2]);
base[6]= make_cons(base[0],base[1]);
base[7]= list(2,VV[33],base[6]);
base[4]= list(4,VV[32],base[5],base[7],Cnil);
base[3]= simple_symlispcall_no_event(VV[119],base+4,1);
vs_top=(vs_base=base+3)+1;
L9();
return;
T189:;
base[2]= get(base[0],VV[34],Cnil);
if((base[2])==Cnil){
goto T195;}
base[3]= base[0];
if((simple_symlispcall_no_event(VV[118],base+3,1))==Cnil){
goto T195;}
if(!(type_of(base[2])==t_cons)){
goto T195;}
base[3]= cdr(base[2]);
if((simple_symlispcall_no_event(VV[120],base+3,1))==Cnil){
goto T195;}
if(endp(base[1])){
goto T195;}
if(!(endp(cdr(base[1])))){
goto T195;}
{object V3= car(base[2]);
if((V3!= VV[43]))goto T210;
base[3]= list(3,VV[35],car(base[1]),cdr(base[2]));
vs_top=(vs_base=base+3)+1;
L9();
return;
T210:;
if((V3!= VV[84]))goto T212;
base[3]= list(3,VV[36],cdr(base[2]),car(base[1]));
vs_top=(vs_base=base+3)+1;
L9();
return;
T212:;
base[3]= car(base[1]);
base[4]= car(base[2]);
base[5]= cdr(base[2]);
vs_top=(vs_base=base+3)+3;
L23();
return;}
T195:;
if(!(base[0]==VV[21])){
goto T218;}
base[3]= VV[37];
symlispcall_no_event(VV[112],base+3,1);
return;
T218:;
base[4]= VV[28];
base[6]= get(base[0],VV[38],Cnil);
base[5]= (base[6]==Cnil?Ct:Cnil);
base[3]= simple_symlispcall_no_event(VV[92],base+4,2);
base[5]= base[1];
base[6]= base[3];
vs_top=(vs_base=base+5)+2;
L21();
vs_top=sup;
base[4]= vs_base[0];
base[6]= base[0];
base[5]= simple_symlispcall_no_event(VV[121],base+6,1);
if((base[5])==Cnil){
goto T228;}
structure_set(base[3],VV[29],2,base[5]);
T228:;
base[6]= base[0];
base[5]= simple_symlispcall_no_event(VV[122],base+6,1);
if((base[5])==Cnil){
goto T233;}
base[6]= base[4];
base[7]= Cnil;
base[8]= base[1];
T239:;
if(!(endp(base[6]))){
goto T240;}
base[4]= reverse(base[7]);
goto T233;
T240:;
if(!(endp(base[5]))){
goto T247;}
base[7]= make_cons(car(base[6]),base[7]);
goto T245;
T247:;
base[10]= car(base[5]);
base[11]= car(base[6]);
base[12]= car(base[8]);
base[9]= simple_symlispcall_no_event(VV[116],base+10,3);
base[7]= make_cons(base[9],base[7]);
base[9]= car(base[5]);
base[5]= cdr(base[5]);
T245:;
base[6]= cdr(base[6]);
base[8]= cdr(base[8]);
goto T239;
T233:;
base[5]= get(base[0],VV[39],Cnil);
if((base[5])==Cnil){
goto T263;}
base[6]= base[4];
base[7]= base[1];
T268:;
if(endp(base[5])){
goto T270;}
if(!(endp(base[6]))){
goto T269;}
T270:;
goto T263;
T269:;
base[8]= car(base[5]);
base[9]= car(base[6]);
base[10]= car(base[7]);
(void)simple_symlispcall_no_event(VV[123],base+8,3);
base[8]= car(base[5]);
base[5]= cdr(base[5]);
base[6]= cdr(base[6]);
base[7]= cdr(base[7]);
goto T268;
T263:;
{object V4= base[0];
if((V4!= VV[124]))goto T288;
base[5]= structure_ref(cadar(base[4]),VV[29],2);
if(!(base[5]==VV[40])){
goto T291;}
base[5]= VV[41];
if((VV[41])!=Cnil){
goto T290;}
T291:;
if(!(type_of(base[5])==t_cons)){
goto T287;}
if(car(base[5])==VV[42]){
goto T298;}
if(!(car(base[5])==VV[43])){
goto T287;}
T298:;
base[5]= cadr(base[5]);
if((base[5])==Cnil){
goto T287;}
T290:;
base[6]= structure_ref(base[3],VV[29],2);
base[7]= base[5];
base[5]= simple_symlispcall_no_event(VV[125],base+6,2);
if((base[5])!=Cnil){
goto T308;}
base[6]= VV[44];
base[7]= make_cons(base[0],base[1]);
(void)simple_symlispcall_no_event(VV[126],base+6,2);
T308:;
structure_set(base[3],VV[29],2,base[5]);
goto T287;
T288:;
if((V4!= VV[127]))goto T313;
base[5]= structure_ref(cadar(base[4]),VV[29],2);
if(!(base[5]==VV[40])){
goto T316;}
base[5]= VV[41];
if((VV[41])!=Cnil){
goto T315;}
T316:;
if(!(type_of(base[5])==t_cons)){
goto T287;}
if(car(base[5])==VV[42]){
goto T323;}
if(!(car(base[5])==VV[43])){
goto T287;}
T323:;
base[5]= cadr(base[5]);
if((base[5])==Cnil){
goto T287;}
T315:;
base[6]=symbol_function(VV[125]);
base[7]= structure_ref(base[3],VV[29],2);
base[11]= base[4];
vs_top=(vs_base=base+11)+1;
Llast();
vs_top=sup;
base[10]= vs_base[0];
base[9]= structure_ref(cadar(base[10]),VV[29],2);
base[10]= base[5];
base[8]= simple_symlispcall_no_event(VV[125],base+9,2);
base[5]= simple_lispcall_no_event(base+6,2);
if((base[5])!=Cnil){
goto T337;}
base[6]= VV[45];
base[7]= make_cons(base[0],base[1]);
(void)simple_symlispcall_no_event(VV[126],base+6,2);
T337:;
structure_set(base[3],VV[29],2,base[5]);
base[7]= base[4];
vs_top=(vs_base=base+7)+1;
Llast();
vs_top=sup;
base[6]= vs_base[0];
structure_set(cadar(base[6]),VV[29],2,base[5]);
goto T287;
T313:;}
T287:;
base[5]= list(4,VV[46],base[3],base[0],base[4]);
vs_top=(vs_base=base+5)+1;
return;
}
/* function definition for C1LAMBDA-FUN */
static L13()
{ register object *base=vs_base;
register object *sup=base+VM8;
vs_reserve(VM8);
check_arg(2);
vs_top=sup;
TTL:;
base[3]= VV[28];
base[4]= Ct;
base[2]= simple_symlispcall_no_event(VV[92],base+3,2);
base[3]= base[1];
base[4]= base[2];
vs_top=(vs_base=base+3)+2;
L21();
vs_top=sup;
base[1]= vs_base[0];
base[3]= base[0];
base[0]= simple_symlispcall_no_event(VV[128],base+3,1);
base[3]= base[2];
base[4]= cadr(base[0]);
(void)simple_symlispcall_no_event(VV[108],base+3,2);
base[3]= list(4,VV[47],base[2],base[0],base[1]);
vs_top=(vs_base=base+3)+1;
return;
}
/* function definition for C2EXPR */
static L14()
{ register object *base=vs_base;
register object *sup=base+VM9;
vs_reserve(VM9);
check_arg(1);
vs_top=sup;
TTL:;
if(!(car(base[0])==VV[46])){
goto T359;}
base[1]= caddr(base[0]);
base[2]= cadddr(base[0]);
base[3]= Cnil;
base[4]= structure_ref(cadr(base[0]),VV[29],2);
symlispcall_no_event(VV[129],base+1,4);
return;
T359:;
base[1]= get(car(base[0]),VV[4],Cnil);
{object V5;
V5= cddr(base[0]);
vs_top=base+2;
while(!endp(V5))
{vs_push(car(V5));V5=cdr(V5);}
vs_base=base+2;}
super_funcall_no_event(base[1]);
return;
}
/* function definition for C2EXPR* */
static L15()
{ register object *base=vs_base;
register object *sup=base+VM10;
vs_reserve(VM10);
bds_check;
check_arg(1);
vs_top=sup;
TTL:;
setq(VV[49],number_plus(symbol_value(VV[49]),VV[50]));
bds_bind(VV[48],make_cons(symbol_value(VV[49]),Cnil));
bds_bind(VV[51],make_cons((VV[48]->s.s_dbind),symbol_value(VV[51])));
base[3]= base[0];
vs_top=(vs_base=base+3)+1;
L14();
vs_top=sup;
if((cdr((VV[48]->s.s_dbind)))==Cnil){
goto T373;}
princ_str("\nT",VV[52]);
base[3]= car((VV[48]->s.s_dbind));
(void)simple_symlispcall_no_event(VV[130],base+3,1);
princ_str(":;",VV[52]);
base[3]= Cnil;
vs_top=(vs_base=base+3)+1;
bds_unwind1;
bds_unwind1;
return;
T373:;
base[3]= Cnil;
vs_top=(vs_base=base+3)+1;
bds_unwind1;
bds_unwind1;
return;
}
/* function definition for C2EXPR-TOP */
static L16()
{ register object *base=vs_base;
register object *sup=base+VM11;
vs_reserve(VM11);
bds_check;
check_arg(2);
vs_top=sup;
TTL:;
bds_bind(VV[54],VV[53]);
bds_bind(VV[55],VV[53]);
bds_bind(VV[56],one_plus(symbol_value(VV[56])));
setq(VV[57],number_plus(symbol_value(VV[57]),VV[50]));
bds_bind(VV[58],symbol_value(VV[57]));
princ_str("\n {register object *base",VV[52]);
base[6]= one_minus((VV[56]->s.s_dbind));
(void)simple_symlispcall_no_event(VV[130],base+6,1);
princ_str("=base;",VV[52]);
setq(VV[59],Ct);
princ_str("\n {register object *base=V",VV[52]);
base[6]= base[1];
(void)simple_symlispcall_no_event(VV[130],base+6,1);
princ_char(59,VV[52]);
princ_str("\n register object *sup=vs_base+VM",VV[52]);
base[6]= (VV[58]->s.s_dbind);
(void)simple_symlispcall_no_event(VV[130],base+6,1);
princ_char(59,VV[52]);
if((symbol_value(VV[60]))==Cnil){
goto T401;}
princ_str("\n vs_reserve(VM",VV[52]);
base[6]= (VV[58]->s.s_dbind);
(void)simple_symlispcall_no_event(VV[130],base+6,1);
princ_str(");",VV[52]);
goto T399;
T401:;
princ_str("\n vs_check;",VV[52]);
T399:;
princ_str("\n ",VV[52]);
(void)simple_symlispcall_no_event(VV[131],base+6,0);
base[6]= base[0];
vs_top=(vs_base=base+6)+1;
L14();
vs_top=sup;
base[6]= make_cons((VV[58]->s.s_dbind),(VV[55]->s.s_dbind));
setq(VV[61],make_cons(base[6],symbol_value(VV[61])));
princ_str("\n }}",VV[52]);
base[6]= Cnil;
vs_top=(vs_base=base+6)+1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
return;
}
/* function definition for C2EXPR-TOP* */
static L17()
{ register object *base=vs_base;
register object *sup=base+VM12;
vs_reserve(VM12);
bds_check;
check_arg(2);
vs_top=sup;
TTL:;
setq(VV[49],number_plus(symbol_value(VV[49]),VV[50]));
bds_bind(VV[48],make_cons(symbol_value(VV[49]),Cnil));
bds_bind(VV[51],make_cons((VV[48]->s.s_dbind),symbol_value(VV[51])));
base[4]= base[0];
base[5]= base[1];
vs_top=(vs_base=base+4)+2;
L16();
vs_top=sup;
if((cdr((VV[48]->s.s_dbind)))==Cnil){
goto T422;}
princ_str("\nT",VV[52]);
base[4]= car((VV[48]->s.s_dbind));
(void)simple_symlispcall_no_event(VV[130],base+4,1);
princ_str(":;",VV[52]);
base[4]= Cnil;
vs_top=(vs_base=base+4)+1;
bds_unwind1;
bds_unwind1;
return;
T422:;
base[4]= Cnil;
vs_top=(vs_base=base+4)+1;
bds_unwind1;
bds_unwind1;
return;
}
/* function definition for C1PROGN */
static L18()
{ register object *base=vs_base;
register object *sup=base+VM13;
vs_reserve(VM13);
check_arg(1);
vs_top=sup;
TTL:;
base[1]= Cnil;
if(!(endp(base[0]))){
goto T429;}
vs_base=vs_top;
L10();
return;
T429:;
if(!(endp(cdr(base[0])))){
goto T432;}
base[2]= car(base[0]);
vs_top=(vs_base=base+2)+1;
L9();
return;
T432:;
base[2]= simple_symlispcall_no_event(VV[92],base+3,0);
base[3]= base[0];
base[4]= car(base[3]);
T439:;
if(!(endp(base[3]))){
goto T440;}
goto T436;
T440:;
base[5]= base[4];
vs_top=(vs_base=base+5)+1;
L9();
vs_top=sup;
base[4]= vs_base[0];
base[1]= make_cons(base[4],base[1]);
base[5]= base[2];
base[6]= cadr(base[4]);
(void)simple_symlispcall_no_event(VV[108],base+5,2);
base[3]= cdr(base[3]);
base[4]= car(base[3]);
goto T439;
T436:;
structure_set(base[2],VV[29],2,structure_ref(cadar(base[1]),VV[29],2));
base[3]= reverse(base[1]);
base[4]= list(3,VV[0],base[2],base[3]);
vs_top=(vs_base=base+4)+1;
return;
}
/* function definition for C1PROGN* */
static L19()
{ register object *base=vs_base;
register object *sup=base+VM14;
vs_reserve(VM14);
check_arg(2);
vs_top=sup;
TTL:;
base[2]= base[0];
vs_top=(vs_base=base+2)+1;
L18();
vs_top=sup;
base[0]= vs_base[0];
base[2]= base[1];
base[3]= cadr(base[0]);
(void)simple_symlispcall_no_event(VV[108],base+2,2);
vs_top=(vs_base=base+0)+1;
return;
}
/* function definition for C2PROGN */
static L20()
{ register object *base=vs_base;
register object *sup=base+VM15;
vs_reserve(VM15);
bds_check;
check_arg(1);
vs_top=sup;
TTL:;
{object V6;
V6= base[0];
T466:;
if(!(endp(cdr((V6))))){
goto T467;}
base[1]= car((V6));
vs_top=(vs_base=base+1)+1;
L14();
return;
T467:;
bds_bind(VV[62],VV[63]);
setq(VV[49],number_plus(symbol_value(VV[49]),VV[50]));
bds_bind(VV[48],make_cons(symbol_value(VV[49]),Cnil));
bds_bind(VV[51],make_cons((VV[48]->s.s_dbind),symbol_value(VV[51])));
base[4]= car((V6));
vs_top=(vs_base=base+4)+1;
L14();
vs_top=sup;
if((cdr((VV[48]->s.s_dbind)))==Cnil){
bds_unwind1;
bds_unwind1;
bds_unwind1;
goto T472;}
princ_str("\nT",VV[52]);
base[4]= car((VV[48]->s.s_dbind));
(void)simple_symlispcall_no_event(VV[130],base+4,1);
princ_str(":;",VV[52]);
bds_unwind1;
bds_unwind1;
bds_unwind1;
T472:;
V6= cdr((V6));
goto T466;}
}
/* function definition for C1ARGS */
static L21()
{ register object *base=vs_base;
register object *sup=base+VM16;
vs_reserve(VM16);
check_arg(2);
vs_top=sup;
TTL:;
{object V7;
object V8= base[0];
if(endp(V8)){
base[3]= Cnil;
vs_top=(vs_base=base+3)+1;
return;}
base[2]=V7=MMcons(Cnil,Cnil);
T487:;
base[4]= (V8->c.c_car);
base[5]= base[1];
vs_top=(vs_base=base+4)+2;
L8();
vs_top=sup;
(V7->c.c_car)= vs_base[0];
if(endp(V8=MMcdr(V8))){
vs_top=(vs_base=base+2)+1;
return;}
V7=MMcdr(V7)=MMcons(Cnil,Cnil);
goto T487;}
}
/* function definition for C1STRUCTURE-REF */
static L22()
{ register object *base=vs_base;
register object *sup=base+VM17;
vs_reserve(VM17);
check_arg(1);
vs_top=sup;
TTL:;
if(endp(base[0])){
goto T492;}
if(endp(cdr(base[0]))){
goto T492;}
if(!(type_of(cadr(base[0]))==t_cons)){
goto T492;}
if(!(caadr(base[0])==VV[33])){
goto T492;}
if(endp(cdadr(base[0]))){
goto T492;}
if(!(type_of(cadadr(base[0]))==t_symbol)){
goto T492;}
if(!(endp(cddadr(base[0])))){
goto T492;}
if(endp(cddr(base[0]))){
goto T492;}
base[1]= caddr(base[0]);
if((simple_symlispcall_no_event(VV[120],base+1,1))==Cnil){
goto T492;}
if(!(endp(cdddr(base[0])))){
goto T492;}
base[1]= car(base[0]);
base[2]= cadadr(base[0]);
base[3]= caddr(base[0]);
vs_top=(vs_base=base+1)+3;
L23();
return;
T492:;
base[1]= simple_symlispcall_no_event(VV[92],base+2,0);
base[3]= base[0];
base[4]= base[1];
vs_top=(vs_base=base+3)+2;
L21();
vs_top=sup;
base[2]= vs_base[0];
base[3]= list(4,VV[46],base[1],VV[5],base[2]);
vs_top=(vs_base=base+3)+1;
return;
}
/* function definition for C1STRUCTURE-REF1 */
static L23()
{ register object *base=vs_base;
register object *sup=base+VM18;
vs_reserve(VM18);
check_arg(3);
vs_top=sup;
TTL:;
base[3]= simple_symlispcall_no_event(VV[92],base+4,0);
base[5]= base[0];
base[6]= base[3];
vs_top=(vs_base=base+5)+2;
L8();
vs_top=sup;
base[4]= vs_base[0];
base[6]= base[1];
base[5]= simple_symlispcall_no_event(VV[132],base+6,1);
base[6]= list(5,VV[8],base[3],base[4],base[5],base[2]);
vs_top=(vs_base=base+6)+1;
return;
}
/* function definition for C2STRUCTURE-REF */
static L24()
{ register object *base=vs_base;
register object *sup=base+VM19;
vs_reserve(VM19);
bds_check;
check_arg(3);
vs_top=sup;
TTL:;
bds_bind(VV[54],symbol_value(VV[54]));
bds_bind(VV[64],VV[53]);
base[7]= make_cons(base[0],Cnil);
base[8]= VV[65];
base[6]= simple_symlispcall_no_event(VV[133],base+7,2);
base[5]= car(base[6]);
base[6]= list(4,VV[8],base[5],base[1],base[2]);
(void)simple_symlispcall_no_event(VV[134],base+6,1);
symlispcall_no_event(VV[135],base+5,0);
bds_unwind1;
bds_unwind1;
return;
}
/* function definition for WT-STRUCTURE-REF */
static L25()
{ register object *base=vs_base;
register object *sup=base+VM20;
vs_reserve(VM20);
check_arg(3);
vs_top=sup;
TTL:;
if((symbol_value(VV[60]))==Cnil){
goto T533;}
princ_str("structure_ref(",VV[52]);
base[3]= base[0];
(void)simple_symlispcall_no_event(VV[130],base+3,1);
princ_str(",VV[",VV[52]);
base[3]= base[1];
(void)simple_symlispcall_no_event(VV[130],base+3,1);
princ_str("],",VV[52]);
base[3]= base[2];
(void)simple_symlispcall_no_event(VV[130],base+3,1);
princ_char(41,VV[52]);
base[3]= Cnil;
vs_top=(vs_base=base+3)+1;
return;
T533:;
princ_char(40,VV[52]);
base[3]= base[0];
(void)simple_symlispcall_no_event(VV[130],base+3,1);
princ_str(")->str.str_self[",VV[52]);
base[3]= base[2];
(void)simple_symlispcall_no_event(VV[130],base+3,1);
princ_char(93,VV[52]);
base[3]= Cnil;
vs_top=(vs_base=base+3)+1;
return;
}
/* function definition for C1STRUCTURE-SET */
static L26()
{ register object *base=vs_base;
register object *sup=base+VM21;
vs_reserve(VM21);
check_arg(1);
vs_top=sup;
TTL:;
base[1]= simple_symlispcall_no_event(VV[92],base+2,0);
if(endp(base[0])){
goto T554;}
if(endp(cdr(base[0]))){
goto T554;}
if(!(type_of(cadr(base[0]))==t_cons)){
goto T554;}
if(!(caadr(base[0])==VV[33])){
goto T554;}
if(endp(cdadr(base[0]))){
goto T554;}
if(!(type_of(cadadr(base[0]))==t_symbol)){
goto T554;}
if(!(endp(cddadr(base[0])))){
goto T554;}
if(endp(cddr(base[0]))){
goto T554;}
base[2]= caddr(base[0]);
if((simple_symlispcall_no_event(VV[120],base+2,1))==Cnil){
goto T554;}
if(endp(cdddr(base[0]))){
goto T554;}
if(!(endp(cddddr(base[0])))){
goto T554;}
base[4]= car(base[0]);
vs_top=(vs_base=base+4)+1;
L9();
vs_top=sup;
base[2]= vs_base[0];
base[4]= cadddr(base[0]);
vs_top=(vs_base=base+4)+1;
L9();
vs_top=sup;
base[3]= vs_base[0];
base[4]= base[1];
base[5]= cadr(base[2]);
(void)simple_symlispcall_no_event(VV[108],base+4,2);
base[4]= base[1];
base[5]= cadr(base[3]);
(void)simple_symlispcall_no_event(VV[108],base+4,2);
structure_set(base[1],VV[29],2,structure_ref(cadr(base[3]),VV[29],2));
base[5]= cadadr(base[0]);
base[4]= simple_symlispcall_no_event(VV[132],base+5,1);
base[5]= list(6,VV[14],base[1],base[2],base[4],caddr(base[0]),base[3]);
vs_top=(vs_base=base+5)+1;
return;
T554:;
base[3]= base[0];
base[4]= base[1];
vs_top=(vs_base=base+3)+2;
L21();
vs_top=sup;
base[2]= vs_base[0];
base[3]= list(4,VV[46],base[1],VV[12],base[2]);
vs_top=(vs_base=base+3)+1;
return;
}
/* function definition for C2STRUCTURE-SET */
static L27()
{ register object *base=vs_base;
register object *sup=base+VM22;
vs_reserve(VM22);
bds_check;
check_arg(4);
vs_top=sup;
TTL:;
base[4]= Cnil;
bds_bind(VV[54],symbol_value(VV[54]));
bds_bind(VV[64],VV[53]);
base[7]= list(3,base[0],base[3],symbol_value(VV[26]));
base[8]= VV[66];
base[4]= simple_symlispcall_no_event(VV[133],base+7,2);
base[0]= car(base[4]);
base[3]= cadr(base[4]);
if((symbol_value(VV[60]))==Cnil){
goto T603;}
princ_str("\n structure_set(",VV[52]);
base[7]= base[0];
(void)simple_symlispcall_no_event(VV[130],base+7,1);
princ_str(",VV[",VV[52]);
base[7]= base[1];
(void)simple_symlispcall_no_event(VV[130],base+7,1);
princ_str("],",VV[52]);
base[7]= base[2];
(void)simple_symlispcall_no_event(VV[130],base+7,1);
princ_char(44,VV[52]);
base[7]= base[3];
(void)simple_symlispcall_no_event(VV[130],base+7,1);
princ_str(");",VV[52]);
goto T601;
T603:;
princ_str("\n (",VV[52]);
base[7]= base[0];
(void)simple_symlispcall_no_event(VV[130],base+7,1);
princ_str(")->str.str_self[",VV[52]);
base[7]= base[2];
(void)simple_symlispcall_no_event(VV[130],base+7,1);
princ_str("]= ",VV[52]);
base[7]= base[3];
(void)simple_symlispcall_no_event(VV[130],base+7,1);
princ_char(59,VV[52]);
T601:;
base[7]= base[3];
(void)simple_symlispcall_no_event(VV[134],base+7,1);
symlispcall_no_event(VV[135],base+7,0);
bds_unwind1;
bds_unwind1;
return;
}
/* function definition for C1CONSTANT-VALUE */
static L28()
{ register object *base=vs_base;
register object *sup=base+VM23;
vs_reserve(VM23);
check_arg(2);
vs_top=sup;
TTL:;
if(!(base[0]==Cnil)){
goto T631;}
vs_base=vs_top;
L10();
return;
T631:;
if(!(base[0]==Ct)){
goto T634;}
vs_base=vs_top;
L11();
return;
T634:;
base[2]= base[0];
if((simple_symlispcall_no_event(VV[120],base+2,1))==Cnil){
goto T637;}
base[3]= VV[18];
base[4]= VV[67];
base[2]= simple_symlispcall_no_event(VV[92],base+3,2);
base[4]= base[0];
base[3]= simple_symlispcall_no_event(VV[109],base+4,1);
base[4]= list(3,VV[68],base[3],base[0]);
base[5]= list(3,VV[17],base[2],base[4]);
vs_top=(vs_base=base+5)+1;
return;
T637:;
if(!(type_of(base[0])==t_character)){
goto T646;}
base[3]= VV[18];
base[4]= VV[41];
base[2]= simple_symlispcall_no_event(VV[92],base+3,2);
base[4]= base[0];
base[3]= simple_symlispcall_no_event(VV[109],base+4,1);
base[5]= base[0];
vs_top=(vs_base=base+5)+1;
Lchar_code();
vs_top=sup;
base[4]= vs_base[0];
base[5]= list(3,VV[69],base[3],base[4]);
base[6]= list(3,VV[17],base[2],base[5]);
vs_top=(vs_base=base+6)+1;
return;
T646:;
base[2]= base[0];
base[3]= VV[70];
if((simple_symlispcall_no_event(VV[136],base+2,2))==Cnil){
goto T656;}
base[3]= VV[18];
base[4]= VV[70];
base[2]= simple_symlispcall_no_event(VV[92],base+3,2);
base[4]= base[0];
base[3]= simple_symlispcall_no_event(VV[109],base+4,1);
base[4]= list(3,VV[71],base[3],base[0]);
base[5]= list(3,VV[17],base[2],base[4]);
vs_top=(vs_base=base+5)+1;
return;
T656:;
base[2]= base[0];
base[3]= VV[72];
if((simple_symlispcall_no_event(VV[136],base+2,2))==Cnil){
goto T666;}
base[3]= VV[18];
base[4]= VV[72];
base[2]= simple_symlispcall_no_event(VV[92],base+3,2);
base[4]= base[0];
base[3]= simple_symlispcall_no_event(VV[109],base+4,1);
base[4]= list(3,VV[73],base[3],base[0]);
base[5]= list(3,VV[17],base[2],base[4]);
vs_top=(vs_base=base+5)+1;
return;
T666:;
if((base[1])==Cnil){
goto T676;}
base[3]=symbol_function(VV[92]);
base[4]= VV[18];
base[6]= base[0];
base[5]= simple_symlispcall_no_event(VV[93],base+6,1);
base[2]= simple_lispcall_no_event(base+3,2);
base[4]= base[0];
base[3]= simple_symlispcall_no_event(VV[109],base+4,1);
base[4]= list(2,VV[19],base[3]);
base[5]= list(3,VV[17],base[2],base[4]);
vs_top=(vs_base=base+5)+1;
return;
T676:;
base[2]= Cnil;
vs_top=(vs_base=base+2)+1;
return;
}
/* macro definition for DEFINE-COMPILER-MACRO */
static L29()
{ register object *base=vs_base;
register object *sup=base+VM24;
vs_reserve(VM24);
check_arg(2);
vs_top=sup;
{object V9=base[0]->c.c_cdr;
if(endp(V9))invalid_macro_call();
base[2]= (V9->c.c_car);
V9=V9->c.c_cdr;
if(endp(V9))invalid_macro_call();
base[3]= (V9->c.c_car);
V9=V9->c.c_cdr;
base[4]= V9;}
base[5]= list(2,VV[33],base[2]);
base[6]= list(2,VV[33],base[2]);
base[7]= list(2,VV[33],base[3]);
base[8]= list(2,VV[33],base[4]);
base[9]= list(4,VV[76],base[6],base[7],base[8]);
base[10]= list(2,VV[75],base[9]);
base[11]= list(4,VV[74],base[5],base[10],VV[77]);
base[12]= list(2,VV[33],base[2]);
base[13]= list(3,VV[0],base[11],base[12]);
vs_top=(vs_base=base+13)+1;
return;
}
/* function definition for UNDEF-COMPILER-MACRO */
static L30()
{ register object *base=vs_base;
register object *sup=base+VM25;
vs_reserve(VM25);
check_arg(1);
vs_top=sup;
TTL:;
base[1]= remprop(base[0],VV[31]);
vs_top=(vs_base=base+1)+1;
return;
}
/* macro definition for DEFINE-INLINE-FUNCTION */
static L31()
{ register object *base=vs_base;
register object *sup=base+VM26;
vs_reserve(VM26);
bds_check;
check_arg(2);
vs_top=sup;
{object V10=base[0]->c.c_cdr;
if(endp(V10))invalid_macro_call();
base[2]= (V10->c.c_car);
V10=V10->c.c_cdr;
if(endp(V10))invalid_macro_call();
base[3]= (V10->c.c_car);
V10=V10->c.c_cdr;
base[4]= V10;}
base[5]= Cnil;
bds_bind(VV[79],symbol_value(VV[79]));
base[7]= base[3];
base[8]= car(base[7]);
T687:;
if(!(endp(base[7]))){
goto T688;}
goto T684;
T688:;
if(!(type_of(base[8])==t_symbol)){
goto T694;}
{object x= base[8],V11= VV[80];
while(!endp(V11))
if(x==(V11->c.c_car)){
goto T694;
}else V11=V11->c.c_cdr;}
base[11]= car((VV[79]->s.s_dbind));
(VV[79]->s.s_dbind)= cdr((VV[79]->s.s_dbind));
base[10]= base[11];
if(base[10]==Cnil)goto T700;
base[9]= base[10];
goto T699;
T700:;
base[11]= VV[81];
base[13]= VV[82];
vs_top=(vs_base=base+13)+1;
Lfind_package();
vs_top=sup;
base[12]= vs_base[0];
vs_top=(vs_base=base+11)+2;
Lgentemp();
vs_top=sup;
base[9]= vs_base[0];
T699:;
base[5]= make_cons(base[9],base[5]);
goto T692;
T694:;
base[9]= VV[83];
base[10]= base[8];
base[11]= base[2];
vs_top=(vs_base=base+9)+3;
Lerror();
vs_top=sup;
T692:;
base[7]= cdr(base[7]);
base[8]= car(base[7]);
goto T687;
T684:;
{object V12;
object V13= base[3];
object V14= base[5];
if(endp(V13)||endp(V14)){
base[8]= Cnil;
goto T717;}
base[9]=V12=MMcons(Cnil,Cnil);
T718:;
base[12]= list(2,VV[33],(V13->c.c_car));
(V12->c.c_car)= list(3,VV[84],base[12],(V14->c.c_car));
if(endp(V13=MMcdr(V13))||endp(V14=MMcdr(V14))){
base[8]= base[9];
goto T717;}
V12=MMcdr(V12)=MMcons(Cnil,Cnil);
goto T718;}
T717:;
base[7]= make_cons(VV[84],base[8]);
base[8]= listA(4,VV[85],base[2],base[3],base[4]);
base[9]= list(2,VV[33],base[4]);
base[10]= list(4,VV[87],VV[88],base[7],base[9]);
base[11]= list(4,VV[86],base[2],base[5],base[10]);
base[12]= list(3,VV[0],base[8],base[11]);
vs_top=(vs_base=base+12)+1;
bds_unwind1;
return;
}